home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / hottra1a / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-07-29  |  1.9 KB  |  70 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Menu tracker"
  4.    ClientHeight    =   6000
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   7755
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   6000
  10.    ScaleWidth      =   7755
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command3 
  13.       Caption         =   "Clear"
  14.       Height          =   495
  15.       Left            =   6480
  16.       TabIndex        =   3
  17.       Top             =   1260
  18.       Width           =   1215
  19.    End
  20.    Begin VB.CommandButton Command2 
  21.       Caption         =   "Unhook"
  22.       Height          =   495
  23.       Left            =   6480
  24.       TabIndex        =   2
  25.       Top             =   660
  26.       Width           =   1215
  27.    End
  28.    Begin VB.CommandButton Command1 
  29.       Caption         =   "Hook"
  30.       Height          =   495
  31.       Left            =   6480
  32.       TabIndex        =   1
  33.       Top             =   60
  34.       Width           =   1215
  35.    End
  36.    Begin VB.ListBox List1 
  37.       BeginProperty Font 
  38.          Name            =   "Courier New"
  39.          Size            =   8.25
  40.          Charset         =   0
  41.          Weight          =   400
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       Height          =   5940
  47.       Left            =   0
  48.       TabIndex        =   0
  49.       Top             =   0
  50.       Width           =   6375
  51.    End
  52. Attribute VB_Name = "Form1"
  53. Attribute VB_GlobalNameSpace = False
  54. Attribute VB_Creatable = False
  55. Attribute VB_PredeclaredId = True
  56. Attribute VB_Exposed = False
  57. Option Explicit
  58. Private Sub Command1_Click()
  59.   Hook Me.hwnd
  60. End Sub
  61. Private Sub Command2_Click()
  62.   UnHook
  63. End Sub
  64. Private Sub Command3_Click()
  65.   List1.Clear
  66. End Sub
  67. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  68.   UnHook
  69. End Sub
  70.